home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tegl6b.zip / INTROPAK.EXE / lha / FRAME3.PAS < prev    next >
Pascal/Delphi Source File  |  1991-07-16  |  398b  |  24 lines
  1. {-- frame3.pas}
  2. {$F+}
  3.  
  4. USES teglunit,teglmain;
  5.  
  6. VAR ifs : ImageStkPtr;
  7.  
  8. function cancelevent(frame: ImageStkPtr; mouse: MsClickPtr): Word;
  9.   BEGIN
  10.     dropstackimage(ifs);
  11.   END;
  12.  
  13. BEGIN
  14.   easytegl;
  15.   easyout;
  16.   PushImage(50,50,200,150);
  17.   ShadowBox(50,50,200,150);
  18.   ifs := StackPtr;
  19.   DefineSquareButtonText(ifs,0,0,80,30,5,5,'CANCEL',cancelevent);
  20.   TeglSupervisor;
  21. END.
  22.  
  23.  
  24.